﻿Module Funciones
    Public Function Crea_Cuenta(ByVal Cuenta As String) As String
        If Cuenta.Trim.Length = 0 Then Cuenta = "000"
        While Cuenta.Length < 27
            If Not Cuenta.EndsWith("-") Then Cuenta += "-"
            Cuenta += "000"
        End While

        Dim Cuenta2 As String = ""
        Dim cont As Integer = 0
        For Each scad As String In Cuenta.Split("-")
            cont += 1
            If cont <= 6 Then
                Cuenta2 += Format(Val(scad), "000") & "-"
            ElseIf cont = 7 Then
                Cuenta2 += Format(Val(scad), "00")
            End If
        Next
        Cuenta = Cuenta2
        Try
            Cuenta = Cuenta.Substring(0, 26)
        Catch ex As Exception

        End Try

        Return Cuenta
    End Function

    Public Function Formatea_Cuenta(ByVal Cuenta As String) As String
        Dim tmpCuenta As String = ""

        Dim i As Integer = 0
        For i = 0 To Cuenta.Length - 1 Step 3
            tmpCuenta += Cuenta.Substring(i, 3) & "-"
        Next
        If i < Cuenta.Length Then
            tmpCuenta += Cuenta.Substring(i)
        End If

        Return Crea_Cuenta(tmpCuenta)
    End Function
End Module
